home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 026-050 / scopedisk47 / ls22 / c2.a < prev    next >
Text File  |  1995-03-18  |  9KB  |  396 lines
  1. *
  2. * C initial startup procedure under AmigaDOS
  3. * 
  4. * Use the following command line to make c.o
  5. * asm -u -iINCLUDE: c.a
  6. *
  7. * Use the following command line to make cres.o
  8. * asm -u -dRESIDENT -iINCLUDE: -ocres.o c.a
  9.  
  10.     BASEREG    B
  11.     SMALLOBJ
  12.     ADDSYM
  13.     OPTIMON
  14.  
  15.     IDNT    "c2.a"
  16.  
  17. * --------------------------------------------------------------------- *
  18. * Macros:
  19. * --------------------------------------------------------------------- *
  20. SYS    MACRO    *
  21.     IFGT    NARG-2
  22.     FAIL    !!!
  23.     ENDC
  24.     IFEQ    NARG-2
  25.     MOVE.L    \2,a6
  26.     ENDC
  27.     JSR    _LVO\1(a6)
  28.     ENDM
  29.  
  30. XLVO    MACRO    *
  31.     XREF    _LVO\1
  32.     ENDM
  33.  
  34. * --------------------------------------------------------------------- *
  35. * Equates:
  36. * --------------------------------------------------------------------- *
  37. RESIDENT    EQU    1
  38.  
  39. MEMF_PUBLIC    EQU    $1
  40. MEMF_CLEAR    EQU    $10000
  41. MEMFLAGS    EQU    MEMF_CLEAR+MEMF_PUBLIC
  42. AbsExecBase    EQU    $0004
  43. cli_CommandName    EQU    $10
  44. pr_CLI        EQU    $AC
  45. pr_CurrentDir    EQU    $98
  46. ThisTask    EQU    $114
  47.  
  48. _LVOCloseLibrary EQU    $FE62
  49. _LVOAllocMem    EQU    $FF3A
  50. _LVOFreeMem    EQU    $FF2E
  51. _LVOSetSignal    EQU    $FECE
  52. _LVOOpenLibrary    EQU    $FDD8
  53.  
  54.     XREF    _DOSBase
  55.     XREF    _LinkerDB        ; linker defined base value
  56.     XREF    __BSSBAS        ; linker defined base of BSS
  57.     XREF    __BSSLEN        ; linker defined length of BSS
  58.  
  59.      IFD    RESIDENT
  60.     XREF    _RESLEN
  61.     XREF    _RESBASE
  62.     XREF    _NEWDATAL
  63.      ENDC
  64.     
  65.     XREF    __main            ; Name of C program to start with.
  66.     XREF    _MemCleanup        ; Free all allocated memory
  67.     XREF    ___fpinit        ; initialize floating point
  68.     XREF    ___fpterm        ; terminate floating point
  69.  
  70. * --------------------------------------------------------------------- *
  71.     SECTION    TEXT,CODE
  72. * --------------------------------------------------------------------- *
  73.     XDEF    zzstart
  74. zzstart:
  75.     move.l    a0,a2            ; save command pointer
  76.     move.l    d0,d2            ; and command length
  77.     lea    _LinkerDB,a4        ; load base register
  78.  
  79.      IFND    RESIDENT
  80.     lea    __BSSBAS,a3        ; get base of BSS
  81.     moveq    #0,d1
  82.     move.l    #__BSSLEN,d0        ; get length of BSS in longwords
  83.      bra.b    clr_lp             ; and clear for length given
  84. clr_bss move.l    d1,(a3)+
  85. clr_lp    dbf    d0,clr_bss
  86.      ENDC
  87.  
  88.      IFD    RESIDENT
  89.     movea.l    AbsExecBase,a6
  90.  
  91.     movem.l    d0-d1/a0-a2,-(sp)
  92.     sub.l    #_RESBASE,a4
  93.     move.l    #_RESLEN,d0
  94.     move.l    #MEMFLAGS,d1
  95.     SYS    AllocMem
  96.     tst.l    d0
  97.      beq.w    abort
  98.     move.l    d0,a0
  99.     move.l     d0,a2
  100.  
  101. ;a2 now has difference
  102.     move.l    d0,a1
  103.     move.l    #_NEWDATAL,d0
  104. ;copy data over
  105. cpy:    move.l    (a4)+,(a0)+
  106.     subq.l    #1,d0
  107.      bne.b    cpy
  108. ;a4 now points at number of relocs
  109.     move.l    (a4)+,d0
  110. reloc:     beq.b    nreloc
  111.     move.l    a1,a0
  112.     add.l    (a4)+,a0        ; a0 now has add of reloc
  113.     add.l    (a0),a2
  114.     move.l    a2,(a0) 
  115.     move.l    a1,a2            ; restore offset
  116.     subq.l    #1,d0
  117.     bra.b    reloc
  118.     
  119. nreloc: move.l    a1,a4            ; set up new base register
  120.     add.l    #_RESBASE,a4
  121.     movem.l    (sp)+,d0-d1/a0-a2
  122.      ENDC
  123.  
  124.     movea.l    AbsExecBase,a6
  125.     move.l    a6,_SysBase(a4)
  126.     move.l    sp,__StackPtr(a4)    ; Save stack ptr
  127.     clr.l    _WBenchMsg(a4)
  128.  
  129. * get the address of our task
  130.     move.l    ThisTask(a6),a3
  131.  
  132. * clear any pending signals
  133.     moveq    #0,d0
  134.     move.l    #$00003000,d1
  135.     SYS    SetSignal
  136.     
  137. * are we running as a son of Workbench?
  138.     move.l    pr_CurrentDir(a3),_curdir(a4)
  139.  
  140.     IFD    WBENCH
  141.     tst.l    pr_CLI(a3)
  142.      beq.b    fromWorkbench
  143.     ENDC
  144.  
  145. *=======================================================================
  146. *====== CLI Startup Code ===============================================
  147. *=======================================================================
  148. *
  149. ; Entry: d2 = command length
  150. ;     a2 = Command pointer
  151. fromCLI:
  152.     move.l    sp,d0             ; get top of stack
  153.     sub.l    4(sp),d0        ; compute bottom 
  154.     add.l    #128,d0             ; allow for parms overflow
  155.     move.l    d0,__base(a4)        ; save for stack checking
  156.  
  157. * attempt to open DOS library
  158.     bsr.w    openDOS
  159.  
  160. * find command name:
  161.     move.l    pr_CLI(a3),a0
  162.     add.l    a0,a0             ; bcpl pointer conversion
  163.     add.l    a0,a0
  164.     move.l    cli_CommandName(a0),a1
  165.     add.l    a1,a1             ; bcpl pointer conversion
  166.     add.l    a1,a1
  167.  
  168. * collect parameters:
  169.     move.l    d2,d0            ; get command line length
  170.     moveq.l    #0,d1
  171.     move.b    (a1)+,d1
  172.     move.l    a1,__ProgramName(a4)
  173.     add.l    d1,d0            ; add length of command name
  174.     addq.l    #1,d0            ; allow for space after command 
  175.  
  176.     clr.w    -(sp)            ; set null terminator for command line
  177.     addq.l    #1,d0            ; force to even number of bytes
  178.     andi.w    #$fffe,d0        ; (round up)
  179.     sub.l    d0,sp            ; make room on stack for command line
  180.     subq.l    #2,d0
  181.     clr.w    0(sp,d0)
  182.  
  183. * copy command line onto stack
  184.     move.l    d2,d0            ; get command line length
  185.     subq.l    #1,d0
  186.     add.l    d1,d2
  187.  
  188. copy_line:
  189.     move.b    0(a2,d0.w),0(sp,d2.w)    ; copy command line to stack
  190.     subq.l    #1,d2
  191.     dbf    d0,copy_line
  192.     move.b    #' ',0(sp,d2.w)         ; add space between command and parms
  193.     subq.l    #1,d2
  194.  
  195. copy_cmd:
  196.     move.b    0(a1,d2.w),0(sp,d2.w)    ; copy command name to stack
  197.     dbf    d2,copy_cmd
  198.     move.l    sp,a1
  199.     move.l    a1,-(sp)        ; push command line address
  200.  
  201.     IFD    WBENCH
  202.     bra.b    main            ; call C entrypoint
  203. * --------------------------------------------------------------------- *
  204. * Workbench Startup Code
  205. * --------------------------------------------------------------------- *
  206. fromWorkbench:
  207.     move.l    TC_SPLOWER(a3),__base(a4) ; set base of stack
  208.     moveq     #127,d0
  209.     addq.l    #1,d0            ; Efficient way of getting in 128
  210.     add.l    d0,__base(a4)        ; allow for parms overflow
  211.  
  212. * open the DOS library:
  213.     bsr.w    openDOS
  214.  
  215. * we are now set up. wait for a message from our starter
  216.     lea    pr_MsgPort(a3),a0    ; our process base
  217.     SYS    WaitPort
  218.     lea    pr_MsgPort(a3),a0    ; our process base
  219.     SYS    GetMsg
  220.     move.l    d0,_WBenchMsg(a4)
  221.     move.l    d0,-(sp)
  222.  
  223.     move.l    d0,a2            ; get first argument
  224.     move.l    sm_ArgList(a2),d0
  225.      beq.b    do_cons
  226.     move.l    _DOSBase(a4),a6
  227.     move.l    d0,a0
  228.     move.l    wa_Lock(a0),d1
  229.     move.l    d1,_curdir(a4)
  230.     SYS    CurrentDir
  231. do_cons:
  232.     move.l    sm_ToolWindow(a2),d1    ; get the window argument
  233.      beq.b    do_main
  234.     move.l    #MODE_OLDFILE,d2
  235.     SYS    Open
  236.     move.l    d0,_stdin(a4)
  237.      beq.b    do_main
  238.     lsl.l    #2,d0
  239.     move.l    d0,a0
  240.     move.l    fh_Type(a0),pr_ConsoleTask(a3)
  241. do_main:
  242.     move.l    _WBenchMsg(a4),a0    ; get address of workbench message
  243.     move.l    a0,-(sp)        ; push argv
  244.     pea    _NULL(a4)        ; push argc
  245.     move.l    sm_ArgList(a0),a0    ; get address of arguments
  246.     move.l    wa_Name(a0),__ProgramName(a4)     ; get name of program
  247.     ENDC
  248.  
  249. * --------------------------------------------------------------------- *
  250. * Common CLI/WBENCH code
  251. * --------------------------------------------------------------------- *
  252. main:
  253.      IFD    FLOAT
  254.     jsr    ___fpinit(pc)        ; Initialize floating point
  255.      ENDC
  256.  
  257.     jsr    __main(pc)        ; call C entrypoint
  258.     moveq.l    #0,d0            ; set successful status
  259.     bra.b    exit2
  260.  
  261.     XDEF    _XCEXIT
  262. _XCEXIT:
  263.     move.l    4(sp),d0        ; extract return code
  264.  
  265.     XDEF    xXCEXIT
  266. xXCEXIT:
  267. exit2:
  268.     move.l    d0,-(sp)        ; save return status
  269.  
  270.      IFD    ERRTRAPS
  271.     move.l    __ONEXIT(a4),d0        ; exit trap function?
  272.      beq.b    exit3
  273.     move.l    d0,a0
  274.     jsr    (a0)
  275. exit3:
  276.      ENDC
  277.  
  278.      IFD    MALLOC
  279.     jsr    _MemCleanup(pc)        ; cleanup leftover memory alloc.
  280.      ENDC
  281.  
  282.     movea.l    AbsExecBase,a6
  283.     move.l    _DOSBase(a4),a1
  284.     SYS    CloseLibrary        ; close Dos library
  285.  
  286.      IFD    FLOAT
  287.     jsr    ___fpterm(pc)        ; clean up any floating point
  288.      ENDC
  289.  
  290.      IFD    WBENCH
  291. done_1c:
  292. * if we ran from CLI, skip workbench cleanup:
  293.     tst.l    _WBenchMsg(a4)
  294.      beq.b    exitToDOS
  295.     move.l    _stdin(a4),d1
  296.      beq.b    done_4
  297.     SYS    Close
  298. done_4:
  299. * return the startup message to our parent
  300. *     we forbid so workbench can't UnLoadSeg() us
  301. *     before we are done:
  302.     movea.l    AbsExecBase,a6
  303.     SYS    Forbid
  304.     move.l     _WBenchMsg(a4),a1
  305.     SYS    ReplyMsg
  306.      ENDC
  307.  
  308. * this rts sends us back to DOS:
  309. exitToDOS:
  310.      IFD    RESIDENT
  311.     move.l    #_RESLEN,d0
  312.     move.l     a4,a1
  313.     sub.l    #_RESBASE,a1
  314.     movea.l    AbsExecBase,a6
  315.     SYS    FreeMem
  316.      ENDC
  317.     
  318.     move.l    (sp)+,d0
  319.     movea.l    __StackPtr(a4),sp    ; restore stack ptr
  320.  
  321.     XDEF    xchkabort
  322. xchkabort:
  323.     rts
  324.  
  325.      IFD    RESIDENT
  326. abort:
  327.     movem.l    (sp)+,d0-d1/a0-a2
  328.     rts
  329.      ENDC
  330.  
  331. * --------------------------------------------------------------------- *
  332. noDOS:
  333.     moveq.l    #100,d0
  334.     bra.b    exit2
  335.  
  336. * --------------------------------------------------------------------- *
  337. *    Open the DOS library:
  338. * --------------------------------------------------------------------- *
  339. openDOS:
  340.     lea    DOSName(pc),a1
  341.     moveq.l #0,d0
  342.     SYS    OpenLibrary
  343.     move.l    d0,_DOSBase(a4)
  344.      beq.b    noDOS
  345.     rts
  346.  
  347. DOSName:    dc.b    'dos.library',0
  348.  
  349. * --------------------------------------------------------------------- *
  350.     SECTION __MERGED,BSS
  351. * --------------------------------------------------------------------- *
  352.  
  353.     XDEF    _NULL,_SysBase,_WBenchMsg
  354.     XDEF    _curdir,__mbase,__mnext,__msize,__tsize
  355.     XDEF    __oserr,__OSERR
  356.      IFD    FLOAT
  357.     XDEF    __FPERR
  358.     XDEF    __SIGFPE
  359.      ENDC
  360.      IFD    ERRTRAPS
  361.     XDEF    __ONERR,__ONEXIT,__ONBREAK
  362.     XDEF    __SIGINT
  363.      ENDC
  364.     XDEF    _stdin
  365.     XDEF    __ProgramName,__StackPtr,__base
  366.  
  367. * --------------------------------------------------------------------- *
  368. _NULL        ds.l    1         ; Huh?
  369. __base        ds.l    1         ; base of stack
  370. __mbase        ds.l    1         ; base of memory pool
  371. __mnext        ds.l    1         ; next available memory location
  372. __msize        ds.l    1         ; size of memory pool
  373. __tsize        ds.l    1         ; total size?
  374. __oserr
  375. __OSERR        ds.l    1
  376.      IFD    FLOAT
  377. __FPERR        ds.l    1
  378. __SIGFPE    ds.l    1
  379.      ENDC
  380.      IFD    ERRTRAPS
  381. __SIGINT    ds.l    1
  382. __ONERR        ds.l    1
  383. __ONEXIT    ds.l    1
  384. __ONBREAK    ds.l    1
  385.      ENDC
  386. _curdir        ds.l    1
  387. _SysBase    ds.l    1
  388. _WBenchMsg    ds.l    1
  389. __StackPtr    ds.l    1
  390. _stdin        ds.l    1
  391. __ProgramName    ds.l    1
  392.  
  393. * --------------------------------------------------------------------- *
  394.     END
  395. * --------------------------------------------------------------------- *
  396.